home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / extol30.arc / ALICE.EXT next >
Text File  |  1987-10-31  |  2KB  |  68 lines
  1.     % THIS PROGRAM QUIZZES THE USER ABOUT ALICE IN WONDERLAND
  2.     % ANSWERS ARE SCANNED FOR KEYWORDS. THE RESPONSE FILE B:ALICE.SCO
  3.     % IS USED TO MARK THE STUDENT'S SCORE
  4.     %
  5.     .response alice.sco
  6.     .clear 
  7.     .caseon
  8.     .keyword
  9. This quiz is about Lewis Carroll's "Alice in Wonderland".
  10. Please respond to each question as best as you can.
  11.     .feed(3)
  12. Who did alice follow down the hole?+
  13.     .accept
  14.     .match(1,1).WHITE
  15.     .match(1,1).RABBIT.BUNNY.HARE
  16.     .goto(1).bad.good.better
  17.     :bad
  18. I'm sorry but she followed the White Rabbit down the hole.
  19.     .goto.question2
  20.     :good
  21.     .increment(2,1)
  22. Good, although she followed a "White Rabbit" to be more precise.
  23.     .goto.question2
  24.     :better        
  25.     .increment(2,2)
  26. That's quite correct !               
  27.     %
  28.     :question2
  29.     .reset(1)
  30. What was the caterpillar doing?
  31.     .accept
  32.     .match(1,1).SMOKING.TOKING.
  33.     .match(1,1).HOOKAH.PIPE.
  34.     .goto(1).bad2.good2.better2
  35.     :bad2
  36. I'm sorry but he was smoking a hookah.
  37.     .goto.question3
  38.     :good2
  39. Good, but the caterpillar was smoking a hookah.
  40.     .increment(2,1)
  41.     .goto.question3
  42.     :better2
  43. Very good! The caterpillar was smoking a hookah.
  44.     .increment(2,2)
  45.     %
  46.     :question3
  47.     .reset(1)
  48. What happened when the cheshire cat smiled?
  49.     .accept
  50.     .match(1,1).DISAPPEARED.FADED.VANISHED.EVAPORATED.
  51.     .goto(1).bad3.better3.
  52.     :bad3
  53. I'm sorry but the cheshire cat disappeared when he smiled.
  54.     .goto.endquiz
  55.     :better3
  56. Very good! The cheshire cat vanished when he smiled.
  57.     .increment(2,1)
  58.     %
  59.     .reset(1)
  60.     :endquiz
  61.     Your score was+
  62.     .print(2)
  63.     .mark
  64.     .stop
  65.  
  66.  
  67.  
  68.